home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / toolbox / fliplr < prev    next >
Text File  |  1994-02-21  |  445b  |  23 lines
  1. //-------------------------------------------------------------------//
  2.  
  3. //  Syntax:    fliplr ( A )
  4.  
  5. //  Description:
  6.  
  7. //  fliplr flips all the elements of a vector (or matrix) from left to
  8. //  right. 
  9.  
  10. //-------------------------------------------------------------------//
  11.  
  12. fliplr = function(A) 
  13. {
  14.   local(B);
  15.   if (class (A) != "num") 
  16.   {
  17.     error("fliplr: Only matrix arguments supported");
  18.   }
  19.  
  20.   B[;1:A.nc] = A[;A.nc:1:-1];
  21.   return B;
  22. };
  23.